# name : R flextable::set_formatter function
# key : flextable_set_formatter.fun
# key : flextable.set_formatter.fun
# contributor: Shuguang
# expand-env: ((yas-indent-line 'fixed) (yas-wrap-around-region 'nil))
# --
double_format <- function(x){
  sprintf("%.3f", x)
}
percent_format <- function(x){
  sprintf("%2.1f %%", x*100)
}